10 POKE 52,48: POKE 56,48: CLR
15 B$="        "
16 M$=CHR$(147):H$=CHR$(19):R$=CHR$(18):O$=CHR$(146):D$=CHR$(17)
20 PRINT ""M$D$D$D$D$" "R$B$"  "
25 FOR J=1 TO 8: PRINT" "R$" "O$B$R$" ": NEXTJ: PRINT" "R$B$"  "
30 PRINT H$D$B$B$: PRINT B$B$
35 PRINT H$D$;: INPUT " CHARACTER ";C$:CH=PEEK(1077)*8+53248
40 POKE 56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
45 FOR I=0 TO 7:A(I)=PEEK(CH+I): NEXTI
50 POKE 1,PEEK(1)OR4
55 POKE56334,PEEK(56334)OR1
60 PRINT H$D$D$D$D$: FOR X=0 TO 7: X$=""
65 FOR Y=7 TO 0 STEP -1
70 IF A(X)>=2^Y THEN X$=X$+CHR$(113): A(X)=A(X)-2^Y:GOTO 80
75 X$=X$+" "
80 NEXT Y: PRINT CHR$(158)TAB(2)X$: NEXTX: GOTO 30